home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / TrueBASIC Demo / User's Guide / Houses < prev    next >
Encoding:
Text File  |  1985-10-19  |  923 b   |  34 lines  |  [TEXT/TRUE]
  1. ! Draws three houses using pictures
  2. !
  3. SET WINDOW 0, 10, 0, 10
  4. OPTION ANGLE degrees
  5. DRAW House with Scale(1) * Shift(7,6)
  6. DRAW House with Scale(1.5) * Shift(1.8,4)
  7. DRAW House with Rotate(45) * Scale(2,1.6) * Shift(6.2,1.8)
  8. END
  9.  
  10. PICTURE House
  11.     SET COLOR 3
  12.     PLOT AREA: -1,-1; -1,1; 1,1; 1,-1      ! The house itself
  13.  
  14.     SET COLOR 1
  15.     PLOT area: -1,1; 0,1.5; 1,1                 ! Its roof
  16.     PLOT area: -1,1; -1,1.4; -.8,1.4; -.8,1     ! and chimney
  17.  
  18.     SET COLOR 0
  19.     PLOT area: -.15,-1; -.15,-.3; .15,-.3; .15,-1    ! A door
  20.  
  21.     DRAW Window with Shift(-.5,-.5)             ! and 4 windows
  22.     DRAW Window with Shift(-.5,.5)
  23.     DRAW Window with Shift(.5,.5)
  24.     DRAW Window WITH Shift(.5,-.5)
  25. END PICTURE
  26.  
  27. PICTURE Window
  28.     SET COLOR 0
  29.     PLOT AREA: -.1,-.2; -.1,.2; .1,.2; .1,-.2   ! The window
  30.     SET COLOR 1
  31.     PLOT -.1,0; .1,0                            ! and its sills
  32.     PLOT 0,-.2; 0,.2
  33. END PICTURE
  34.